home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 167
/
Tiger_Disk_167_19xx_Tiger-Crew-Disk_de_Side_D.d64
/
ende - 034 -
(
.txt
)
next >
Wrap
Commodore BASIC
|
2023-02-26
|
665b
|
19 lines
10 v=15:poke53280,.:poke53281,.:printchr$(147):poke53272,23:print""
20 print" [176][184][184][184][184][184][184][184][184][184][184][174]":
40 print"[159] [181] [182] "
45 print" [173][185][185][185][185][185][185][185][185][185][185][189] "
50 :fori=1to20 step.1
60 onigosub180,240,300,360
90 forz=1to50:next:print"";:next
130 onigosub180,240,300,360:
140 forz=0tovstep-2 :next: next :goto50
150 forz=vto33
180 poke1569,69:poke1570,78:poke1571,68:poke1572,69:return
240 poke1569,45:poke1570,45 :poke1571,45:poke1572,45:return
250 print"[144]"
300 poke1569,197:poke1570,206:poke1571,196:poke1572,197:return
360 poke1569,45 :poke1570,45 :poke1571,45:poke1572,45:goto370
370 poke1569,69:poke1570,78:poke1571,68:poke1572,69:forz=0tovstep.8
375 poke1569,45 :poke1570,45 :poke1571,45:poke1572,45:
380 poke1569,197:poke1570,206:poke1571,196:poke1572,197: :next